home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / toggleb.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.3 KB  |  64 lines
  1. # CVS $Id: toggleb.tcl,v 1.3 1995/02/03 16:55:28 zibi Exp $
  2.  
  3. #
  4. # a minimal test of the toggle button widget
  5. #
  6.  
  7. proc quitCB {form cbs} {
  8.     VtClose
  9. }
  10.  
  11. proc toggleChangedCB {cbs} {
  12.     global label
  13.  
  14.     set wl [split [keylget cbs widget] .]
  15.     set wi [expr "[llength $wl] - 1"]
  16.     VtSetValues $label \
  17.         -label "[lindex $wl $wi] Value: [keylget cbs set]"
  18. }
  19.  
  20. proc nextToggle {name label value} {
  21.        set tog [VtToggleButton $name -label $label -value $value \
  22.         -callback toggleChangedCB \
  23.              -CHARM_mnemonic [cindex $label 0] \
  24.              -xmArgs "XmNbackground red"]
  25.  
  26.     return $tog
  27. }
  28.  
  29. set fn [VtOpen "testtoggles"]
  30.  
  31. set fn [VtFormDialog $fn.toggles -title "Toggles" \
  32.        -xmArgs "XmNmarginWidth 10
  33.                 XmNmarginHeight 10
  34.             XmNbackground green"]
  35.  
  36. set rc1 [VtRowColumn $fn.rc1 -borderWidth 1]
  37.  
  38. foreach i {1 2 3} {
  39.     set tog [nextToggle $rc1.tog$i "$i Toggle" 0]
  40. }
  41.  
  42. set form1 [VtForm $fn.form1 -borderWidth 2]
  43.  
  44. foreach i {4 5 6} {
  45.     set tog [nextToggle $form1.tog$i "Toggle $i" 1]
  46. }
  47.  
  48. set label [VtLabel $fn.label -label "No Callback Yet" -below $form1]
  49.  
  50. VtPushButton $fn.quit -callback "quitCB $fn" \
  51.     -below $label \
  52.     -leftSide FORM\
  53.     -rightSide FORM\
  54.     -topOffset 10\
  55.     -leftOffset 5 \
  56.     -rightOffset 5\
  57.     -CHARM_topOffset 1\
  58.     -CHARM_leftOffset 2\
  59.     -CHARM_rightOffset 2
  60.  
  61. VtShow $fn
  62. VtMainLoop
  63.  
  64.